home *** CD-ROM | disk | FTP | other *** search
/ Larry Magid's Essential Internet / Larry Magid's Essential Internet (Quarterdeck Corporation)(1995).ISO / qsockpro.qip / MAGNA.MPS < prev    next >
Text File  |  1995-10-09  |  1KB  |  56 lines
  1. # Magnadata (Australia) PPP login script
  2. # Copyright 1995 Quarterdeck Corporation
  3. # 5-12-95 Earl White
  4.  
  5. String username
  6. String password
  7.  
  8. TRACE OFF
  9.  
  10. SetTimeout      90                      # reset maximum script timeout
  11.  
  12. # Get IP address from qdeck.ini
  13. CfgGetValue "IPaddress" IP
  14.  
  15. IF result = 0 THEN
  16.     GetInput "Enter your IP Address:" IP
  17.     IF result = 0 THEN
  18.         PRINT "Warning, no IP Address entered."
  19.     ELSE
  20.         PRINT "IP Address set to:"; IP
  21.     ENDIF
  22. ENDIF
  23. # Get username from access method
  24. CfgGetValue "Username" username
  25.  
  26. IF result = 0 THEN
  27.     GetInput "Enter your username:" username
  28.     IF result = 0 THEN
  29.         PRINT "Warning, no username entered."
  30.     ELSE
  31.         PRINT "Username set to:"; username
  32.     ENDIF
  33. ENDIF
  34.  
  35. CfgGetValue "Password" password
  36.  
  37. IF result = 0 THEN
  38.     GetPassword "Enter your password:" password
  39.     IF result = 0 THEN
  40.         PRINT "Warning, no password entered."
  41.     ELSE
  42.         PRINT "Password set."
  43.     ENDIF
  44. ENDIF
  45.  
  46. CommWaitFor  "login: "        # wait for username
  47.     CommSend username         # send user name
  48.     CommSend "%r"             # send carriage return
  49.  
  50. CommWaitFor  "word: "         # wait for password prompt
  51.     CommSend password         # send password
  52.     CommSend "%r"             # send carriage return
  53.  
  54. END                           #success if we got this far
  55.  
  56.